home *** CD-ROM | disk | FTP | other *** search
- /setdg{11 array astore[0 2 index{dup 3 -1 roll sub exch}forall pop 11 -1 roll]
- [3 1 roll{1 4 -1 roll sub 10 mul dup cvi dup dup 4 -2 roll sub 4 -1 roll
- 3 -1 roll get mul 3 1 roll get add 1 exch sub}/exec load]cvx st1}def
-